|
|
|
|
|
|
|
MsgBox "No Resource Information Available"
Exit Sub
End If
' Get resulting NETRESOURCE
Call RtlMoveMemory(nr, OutputBuffer(0), Len(nr))
lstResource.AddItem "Remote Name: " & GetVBString(nr.lpRemoteName)
lstResource.AddItem "Provider: " & GetVBString(nr.lpProvider)
lstResource.AddItem "System Name: " & GetVBString(lpSystem)
End Sub |
|
|
|
|
|